Public Class SQLParsePrimaryKey
    Inherits SQLParser

    Protected Overrides Function MyParserState() As SQLParserState
        Return SQLParserState.SQLParsePrimaryKey
    End Function

    Protected Friend Overrides Sub ParseCommands(ByVal Commands() As String, ByRef tables As TableList)
        Dim columnName As String = Commands(0)
        tables.ActiveTable.PKColumnName = columnName
        tables.SetNoActiveTable()
        Me.SetParserState(SQLParserState.SQLParseNoTable)
    End Sub
End Class
